﻿Public Class FormSo7MayMan

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Visible = False
        'Label1.Text = CStr(Int(Rnd() * 10))
        'Label2.Text = CStr(Int(Rnd() * 10))
        'Label3.Text = CStr(Int(Rnd() * 10))
        Label1.Text = "7"
        Label2.Text = "7"
        Label3.Text = "7"
        'Nếu một trong ba nhãn hiện số 7 thì hiện ảnh và kêu beep
        If (Label1.Text = "7") Or (Label2.Text = "7") Or (Label3.Text = "7") Then
            PictureBox1.Visible = True
            Beep()
        End If
        'Nếu cả 3 nhãn hiện đồng thời ba số 7 thì hiện dòng chữ "Chúc mừng chiến thắng!"
        If (Label1.Text = "7") And (Label2.Text = "7") And (Label3.Text = "7") Then
            PictureBox1.Visible = True
            Beep()
            Label4.Text = "Chúc mừng chiến thắng!"
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class

